home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2K Security 1.xpl < prev    next >
Text File  |  2000-08-07  |  2KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Common"
  5. "NAME"=Security"
  6. "VERSION"="1.09a"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Trust installed files in Word"
  9. "TEXT 2"="Trust installed files in Excel"
  10. "TEXT 3"="Trust installed files in PowerPoint"
  11. "TEXT 4"="Trust installed files in Access"
  12. "DESCRIPTION 1"="This specifies whether or not you want Microsoft Office 2000 programs to trust installed files."  
  13. "DESCRIPTION 2"="Enabling this lowers security somewhat, but disabling it marks installed files as trusted, which will cause Office 2000 programs to treat them as if they are safe, with macros enabled."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20. sV1="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Word\Security\"
  21. sV2="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Excel\Security\"
  22. sV3="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\PowerPoint\Security\"
  23. sV4="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Access\Security\"
  24. sValName="DontTrustInstalledFiles" 'DW 
  25.  
  26. sPCheck="HKCU\Software\Microsoft\Office\9.0\"
  27. Sub Plugin_Initialize 
  28. if RegPathExists(sPCheck) then
  29.  Call Red(1,sV1)
  30.  Call Red(2,sV2)
  31.  Call Red(3,sV3)
  32.  Call Red(4,sV4)
  33. else
  34.  Disable()
  35. End if
  36. End Sub
  37.  
  38. Sub Red(ITM,VAL)
  39.   i=RegReadValue(VAL & sValName)
  40.   if i<>1 then SetUIElement ITM,true
  41. End Sub
  42.  
  43.  
  44. Sub Plugin_CheckData(ElementIndex)
  45. End Sub
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  Call Wrt(1,sV1)
  49.  Call Wrt(2,sV2)
  50.  Call Wrt(3,sV3)
  51.  Call Wrt(4,sV4)
  52. End Sub
  53.  
  54. Sub Wrt(ITM,VAL)
  55.  b=GetUIElement(ITM)
  56.  if b=true then
  57.     s=RegReadValue(VAL & sValName)
  58.     if IsEmpty(s)=false then Call RegDeleteValue(VAL & sValName)
  59.  else
  60.     Call RegWriteValue(VAL & sValName,1,2)
  61.  end if
  62. end sub
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.  
  67.  
  68.  
  69.